home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / util / cdity / ModeProSrc.lha / Install-Dev / OLD / Script2 < prev    next >
Text File  |  1998-08-20  |  4KB  |  148 lines
  1.  
  2. ;-------- BEGIN ----------
  3.  
  4. ; Fix these strings
  5. (set path_modepro_prompt  (path_modepro_prompt path_commodities))
  6. (set path_mpprefs_prompt  (path_mpprefs_prompt path_prefs))
  7.  
  8. (set startup_method (askchoice (prompt  startup_prompt)
  9.                                (help    startup_help)
  10.                                (choices startup_choice0 startup_choice1 startup_choice2)
  11.                                (default 2)
  12. )                   )
  13.  
  14.  
  15.  
  16. (if (= startup_method 2) 
  17.   (
  18.     ( set path_delmodepro path_commodities)
  19.     ( set path_modepro    path_wbstartup)
  20.   )
  21.   (
  22.     ( set path_delmodepro path_wbstartup)
  23.     ( set path_modepro (askdir (prompt  path_modepro_prompt)
  24.                                (help    path_modepro_help)
  25.                                (default path_commodities)
  26.     )                  )
  27.   )
  28. )
  29.  
  30. ( set path_mpprefs (askdir (prompt  path_mpprefs_prompt)
  31.                            (help    path_mpprefs_help)
  32.                            (default path_prefs)
  33. )                  )
  34.  
  35.  
  36.  
  37. ( set ModeProPrefsCommand (tackon ( path_mpprefs) 
  38.                                    ( "ModeProPrefs") 
  39.                           ) 
  40. )
  41.  
  42. ( set tt_cxpopkey ( askstring (prompt tt_cxpopkey_prompt)
  43.                               (help tt_cxhelp)
  44.                               (default "lamiga p")
  45.                
  46. )                 )
  47.  
  48. ( set tt_cxpri ("%ld" (asknumber (prompt tt_cxpri_prompt)
  49.                                  (help tt_cxhelp)
  50.                                  (default 5)
  51. )              )      ) 
  52.  
  53. ( set tt_cxpopup (askchoice (prompt tt_cxpopup_prompt) 
  54.                             (help tt_cxhelp)
  55.                             (default 0) 
  56.                             (choices No Yes) 
  57. )             )
  58.  
  59. ( set tt_wbpromote (askchoice (prompt tt_wbpromote_prompt) 
  60.                             (help tt_wbpromote_help)
  61.                             (default 0) 
  62.                             (choices No Yes) 
  63. )             )
  64.  
  65. ( set tt_wbpromotable (select tt_wbpromote "(WBPROMOTABLE)" "WBPROMOTABLE") )
  66.  
  67.  
  68. ;**** COPY THE CATALOGS ****
  69. (copyfiles (prompt  copycat_prompt)
  70.            (help    copycat_help)
  71.            (source  "catalogs/")
  72.            (dest    "locale:catalogs/")
  73.            (infos)
  74.            (confirm)
  75.            (all)
  76. )
  77.  
  78. ;**** DELETE THE ANY EXTRA COPY OF MODEPRO ****
  79.  
  80. (set oldmodepro_file ( tackon (path_delmodepro) 
  81.                      ("ModePro")
  82. )          )
  83.  
  84. (if (exists oldmodepro_file)
  85.   (
  86.     (if (askchoice (prompt  oldmodepro_prompt ) 
  87.                    (help    oldmodepro_help) 
  88.                    (default 1) 
  89.                    (choices No Yes) 
  90.         )
  91.       (
  92.         (delete oldmodepro_file (prompt oldmodepro_deleting))
  93.         (delete (cat (oldmodepro_file) (".info") ) (prompt oldmodepro_deleting) )
  94.       )
  95.     ) 
  96.   )
  97. )
  98.  
  99. ;**** SET THE TOOLTYPES ****
  100.  
  101. (tooltype (dest ModePro)
  102.           (settooltype "CX_POPKEY"    tt_cxpopkey)
  103.           (settooltype "CX_POPUP"     (select tt_cxpopup No Yes) )
  104.           (settooltype "CX_PRIORITY"  tt_cxpri )
  105.           (settooltype "PREFSCOMMAND" ModeProPrefsCommand)
  106.           (settooltype tt_wbpromotable "")
  107. )
  108.  
  109.  
  110. ;**** COPY FILES ****
  111.     
  112. (copyfiles (prompt installing_modepro)
  113.            (help   installing_modepro)
  114.            (source ModePro)
  115.            (infos)
  116.            (dest path_modepro)
  117. )
  118.  
  119. (set @default-dest path_modepro)
  120.  
  121. (copyfiles (prompt installing_modeproprefs)
  122.            (help   installing_modeproprefs)
  123.            (source ModeProPrefs)
  124.            (infos)
  125.            (dest path_mpprefs)
  126. )
  127.  
  128.  
  129. ;**** PROMPT TO MODIFY THE U-S FILE ****
  130. (if (= startup_method 1)
  131.     ( 
  132.         (startup "ModePro"
  133.                  (prompt  usmodify_prompt )
  134.                  (help    usmodify_help )
  135.                  (command (cat "Run <>NIL: " (tackon path_modepro "ModePro")) )
  136.         )
  137.     )
  138.     (
  139.        (startup "ModePro"
  140.                  (prompt  usmodify_prompt )
  141.                  (help    usmodify_help )
  142.                  (command ";Don't run ModePro from User-Startup")
  143.   
  144.         )
  145.     )
  146. )
  147.  
  148.